home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
EnigmA Amiga Run 1996 February
/
EnigmA AMIGA RUN 04 (1996)(G.R. Edizioni)(IT)[!][issue 1996-02][Skylink CD III].iso
/
earcd
/
util4
/
0utils.lha
/
0Utils
/
PathPart.data
< prev
next >
Wrap
Text File
|
1995-08-19
|
938b
|
63 lines
#ifdef TPLTER
PathPart = {
SHORT = {{ extract a filename's pathpart }};
DESCRIPTION = {{
Pathpart gets a filename and extracts its
AmigaDOS path-part.
The resulting string is sent to STDOUT.
RESULT
a filename's pathpart
}};
EXAMPLES = {{
>PathPart a:a/a
"a:a"
>PathPart a:a
"a:"
>PathPart a
""
}};
SEEALSO = {{
dos.library/PathPart
Suffix, FilePart
}};
HISTORY = {{
01-08-93 b_noll created
20-02-95 b_noll restructured source
21-02-95 b_noll added version/format-prefix/offset
20-03-95 b_noll added args diagnostics
19-08-95 b_noll created .data file
}};
Template = "FILE/A";
Arguments = {{
STRPTR file;
}};
version = "1.2";
body = {{
char * p; char c;
p = PathPart(argv->file);
c = *p; *p = 0;
retval = RETURN_WARN;
if (PutStr (argv->file) == 0) retval = RETURN_OK;
PutStr("\n");
*p = c;
}};
};
#endif